home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / SafeDel < prev    next >
Encoding:
Text File  |  1996-05-03  |  392 b   |  18 lines  |  [TEXT/????]
  1. # Delete all filename matches without generating errors
  2. # patterns must, of course, be quoted
  3.  
  4. Set OldEcho {Echo}
  5. Set Echo 0
  6.  
  7. Echo Set Exit 0> "{TempFolder}"ToDelete
  8. Loop
  9.     Break If `Evaluate {#} == "0"`
  10.     Echo Delete -y "{1}"'>Dev:Null≥Dev:Null' >>"{TempFolder}"ToDelete 
  11.     Shift
  12. End
  13. Echo Exit 0 >>"{TempFolder}"ToDelete
  14.  
  15. Set Echo {OldEcho}
  16. "{TempFolder}"ToDelete
  17. Delete "{TempFolder}"ToDelete
  18.